home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / EASUPGEN.LZH / XTEUPG1.XTS < prev    next >
Text File  |  1989-09-17  |  2KB  |  85 lines
  1. /*
  2.         Ease-Up V1.7 (GEnie Version) INCLUDE file #1 for CROSSTALK Mk.4 v1.1
  3.  
  4.         This file, XTEUPC1.XTS, and its companion file XTEUPC2.XTS are used
  5.         by the scripts generated by Ease-Up V1.7 and are required for the
  6.         proper operation of those scripts.
  7.  
  8.         The files are 'include' files and are included into and compiled with
  9.         the Ease-Up generated scripts. Their location in the generated script
  10.         file is important, so if for some reason you decide to make any changes
  11.         to the generated code keep this in mind.
  12.  
  13.         The XTALK4 Reference Manual states in its notes on the INCLUDE statement
  14.         that the XTPATH path is not searched for include files. I've found that
  15.         this is not the case, and source files on the XTPATH are included. In
  16.         any case, these files must be available to XTALK4 in order for the
  17.         generated scripts to compile. Keeping the generated scripts and the
  18.         include files together in the same subdirectory will take care of it.
  19.         You should refer to your XTALKK4 manuals for the details of how include
  20.         files are handled.
  21. */
  22. /*
  23.         revision notes:
  24.  
  25.         V1.7    09-17-89:
  26.  
  27.                 initial release with Ease-Up V1.7 (GEnie Version).
  28.  
  29. */
  30.  
  31. /*
  32.  * guarantee the protocol
  33.  * is XMODEM
  34.  *
  35.  */
  36.      if protocol <> 'XMODEM' then {
  37.          protocol 'XMODEM'
  38.      }
  39. /*
  40.  * set host params
  41.  *
  42.  */
  43.     databits 8
  44.     parity none
  45.     stopbits 1
  46.     timing normal
  47. /*
  48.  * define the error window
  49.  * and hide it
  50.  *
  51.  */    
  52.     wn = freewin
  53.     window #wn,at 1,1,size 3,35,border 3
  54.     errwn  = freewin
  55.     window #errwn,at 1,40,size 4,35,border 1,color 14,alert
  56.     hide #errwn
  57.     print #wn,'Ease-Up script running...'
  58. /*
  59.  * make sure we're online
  60.  *
  61.  */
  62.     if not online then {
  63.         EXCUSE_ME
  64.         exit
  65.     }
  66. /*
  67.  * initialize vars
  68.  *
  69.  */
  70.     YES = 1
  71.     NO = 0
  72.     err_num = 0
  73.  
  74.     track clear
  75.     track 1, 'Choice no good, Please try again'
  76.     track routine ERROR_HDLR
  77.  
  78.     if not stat_wn then hide #wn
  79.  
  80.     if cmnd_mode = YES then
  81.         gosub C_MODE
  82.     else
  83.         gosub M_MODE
  84.  
  85.